Here’s some personal information about Rey:resume
library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4
## ✔ tibble 3.1.8 ✔ dplyr 1.0.10
## ✔ tidyr 1.2.1 ✔ stringr 1.4.1
## ✔ readr 2.1.2 ✔ forcats 0.5.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
library(p8105.datasets)
library(plotly)
##
## Attaching package: 'plotly'
##
## The following object is masked from 'package:ggplot2':
##
## last_plot
##
## The following object is masked from 'package:stats':
##
## filter
##
## The following object is masked from 'package:graphics':
##
## layout
Create a flexdashboard using plotly for that includes at least three distinct plot types (e.g. scatterplots, line plots, bar plots, box plots, etc.)
score grade boro zipcode cuisine_description
data("rest_inspec")
plot1 =
rest_inspec %>%
drop_na() %>%
filter(boro == "MANHATTAN") %>%
plot_ly(y = ~score, color = ~cuisine_description, type = "box", colors = "viridis")
plot2 =
rest_inspec %>%
drop_na() %>%
filter(cuisine_description == "Chinese") %>%
count(boro) %>%
mutate(boro = fct_reorder(boro, n)) %>%
plot_ly(x = ~boro, y = ~n, color = ~boro, type = "bar", colors = "viridis")
plot3 =
rest_inspec %>%
drop_na() %>%
mutate(zipcode = as.character(zipcode)) %>%
mutate(text_label = str_c("Zipcode: ", zipcode, "Score: ", score)) %>%
plot_ly(
x = ~zipcode, y = ~score, type = "scatter", mode = "markers",
color = ~score, text = ~text_label, alpha = 0.5)
plot3